home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / autocad / R14701.DXR / 00018_sectButton Parent Script.ls < prev    next >
Encoding:
Text File  |  1997-04-24  |  1.7 KB  |  57 lines
  1. property ancestor, pSectCurrent, pSpriteNum, pFirstMemberNum, pMyButtonNumber, pCommand
  2. global gScript
  3.  
  4. on birth me, mySprite, myFirstCastNum, catButton1to4Number, myPCommand
  5.   set pSectCurrent to 0
  6.   set pSpriteNum to mySprite
  7.   set pFirstMemberNum to myFirstCastNum
  8.   set pMyButtonNumber to catButton1to4Number
  9.   set pCommand to myPCommand
  10.   set ancestor to new(script "ButtonAncestor", me)
  11.   set the memberNum of sprite pSpriteNum to pFirstMemberNum
  12.   add(the actorList, me)
  13.   return me
  14. end
  15.  
  16. on mClickOnButton me, mySoundFile, myForceClickFlag
  17.   if pSectCurrent then
  18.     exit
  19.   end if
  20.   repeat while the stillDown
  21.     repeat while rollOver(pSpriteNum) and the stillDown
  22.       castNumberSet(pSpriteNum, pFirstMemberNum + 2)
  23.       updateStage()
  24.     end repeat
  25.     if not rollOver(pSpriteNum) then
  26.       castNumberSet(pSpriteNum, pFirstMemberNum)
  27.       updateStage()
  28.     end if
  29.   end repeat
  30.   if rollOver(pSpriteNum) or (myForceClickFlag = 1) then
  31.     castNumberSet(pSpriteNum, pFirstMemberNum + 2)
  32.     resetOtherButtons(me, pSpriteNum)
  33.     set pSectCurrent to 1
  34.     do(pCommand)
  35.   else
  36.     castNumberSet(pSpriteNum, pFirstMemberNum)
  37.     updateStage()
  38.   end if
  39. end
  40.  
  41. on resetOtherButtons me, myCurrSprite
  42.   repeat with i = 1 to count(the pSectButtonSpriteList of gScript)
  43.     set otherSprite to getAt(the pSectButtonSpriteList of gScript, i)
  44.     if myCurrSprite = otherSprite then
  45.       nothing()
  46.     else
  47.       set the castNum of sprite otherSprite to the pSectButtonFirstMemNum of gScript + ((i * 3) - 3)
  48.       set the pSectCurrent of getAt(the pButtonObjectList of gScript, i) to 0
  49.     end if
  50.     updateStage()
  51.   end repeat
  52. end
  53.  
  54. on castNumberSet mySprite, myMemberNum
  55.   set the memberNum of sprite mySprite to myMemberNum
  56. end
  57.